home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Communication / STFax / Install < prev    next >
Text File  |  1998-06-24  |  5KB  |  211 lines
  1. ; $VER: STFax-Install 1.10 (10.6.97)
  2.  
  3. (if (exists "STFax:" (noreq))
  4.    (set @default-dest (pathonly (expandpath "STFax:")))
  5. )
  6.  
  7. (complete 0)
  8.  
  9. (set InstallDir
  10.    (askdir
  11.       (prompt "Where do you want to install STFax?"
  12.               " (a drawer called 'STFax' will be created there)")
  13.       (help @askdir-help)
  14.       (default @default-dest)
  15.    )
  16. )
  17.  
  18. (Set DestDir 
  19.    (tackon InstallDir "STFax")
  20. )
  21.  
  22. (Set FaxInDir
  23.    (tackon DestDir "Fax_In")
  24. )
  25.  
  26. (Set FaxOutDir
  27.    (tackon DestDir "Fax_Out")
  28. )
  29.  
  30. (Set ConfigDir
  31.    (tackon DestDir "Config")
  32. )
  33.  
  34. (Set LocaleDir
  35.    (tackon DestDir "Catalogs")
  36. )
  37.  
  38. (Set ContribDir
  39.    (tackon DestDir "Contributions")
  40. )
  41.  
  42. (set @default-dest  DestDir)
  43.  
  44. (makedir DestDir)
  45.  
  46. (copyfiles
  47.    (source "/STFax.info")
  48.    (dest InstallDir)
  49.    (infos)
  50.    (noposition)
  51. )
  52.  
  53. (complete 10)
  54.  
  55. (if (<= (/ (getversion) 65536) 38)
  56.    (set Kick2 1)
  57.    (set Kick2 0)
  58. )
  59.  
  60. (copyfiles (source "STFax")            (dest DestDir))
  61. (copyfiles (source "STFax.info")       (dest DestDir)   (noposition))
  62. (copyfiles (source "STFax.guide.info") (dest DestDir)   (noposition))
  63. (copyfiles (source "NoData.txt")       (dest DestDir))
  64. (copyfiles (source "Catalogs.info")    (dest DestDir)   (noposition))
  65. (copyfiles (source "Rexx")             (dest DestDir)   (noposition) (infos) (all))
  66.  
  67. (complete 20)
  68.  
  69. (copyfiles
  70.   (source "Devs/Printers/STFaxPrt")
  71.   (dest "DEVS:Printers")
  72. )
  73.  
  74. (complete 25)
  75.  
  76. (select
  77.    (askchoice
  78.       (prompt "Which documentation should I install?")
  79.       (help @askoption-help)
  80.       (choices "English" "Italiano")
  81.       (default 0)
  82.    )
  83. ; case 0  ---  English
  84.       (
  85.           (copyfiles (source "STFax.guide")        (dest DestDir))
  86.           (copyfiles (source "ReadMe_Now!")        (dest DestDir))
  87.           (copyfiles (source "ReadMe_Now!.info")   (dest DestDir) (noposition))
  88.           (copyfiles (source "OrderForm.txt")      (dest DestDir))
  89.           (copyfiles (source "OrderForm.txt.info") (dest DestDir) (noposition))
  90.       )
  91. ; case 1  ---  Italiano
  92.       (
  93.           (copyfiles (source "docs/italiano/STFax.guide")          (dest DestDir))
  94.           (copyfiles (source "docs/italiano/Leggimi_Ora!")         (dest DestDir))
  95.           (copyfiles (source "docs/italiano/ModRegistrazione.txt") (dest DestDir))
  96.           (copyfiles
  97.               (source "ReadMe_Now!.info")
  98.               (dest DestDir)
  99.               (newname "Leggimi_Ora!.info")
  100.               (noposition)
  101.           )
  102.           (copyfiles
  103.               (source "OrderForm.txt.info")
  104.               (dest DestDir)
  105.               (newname "ModRegistrazione.txt.info")
  106.               (noposition)
  107.           )
  108.       )
  109. )
  110.  
  111.  
  112. (complete 30)
  113.  
  114. (if (exists "STFax.key")
  115.   (copyfiles
  116.      (source "STFax.key")
  117.      (dest DestDir)
  118.   )
  119. )
  120.  
  121. (if Kick2
  122.    (tooltype
  123.       (dest (tackon DestDir "STFax.guide"))
  124.       (setdefaulttool "AmigaGuide")
  125.    )
  126. )
  127.  
  128. (complete 40)
  129.  
  130. (makedir LocaleDir (infos))
  131.  
  132. (copyfiles
  133.   (source "Catalogs")
  134.   (dest LocaleDir)
  135.   (pattern "IEditor#?.c#?")
  136. )
  137.  
  138. (complete 50)
  139.  
  140. (makedir FaxInDir   (infos))
  141. (makedir FaxOutDir  (infos))
  142. (makedir ConfigDir)
  143.  
  144. (complete 60)
  145.  
  146. (copyfiles
  147.   (source "Devs/Datatypes")
  148.   (dest "DEVS:Datatypes")
  149.   (pattern "#?")
  150.   (infos)
  151.   (noposition)
  152. )
  153.  
  154. (copylib
  155.        (prompt "Installing STFax.datatype...")
  156.        (help   "This will install the STFax.datatype: it will let "
  157.                "you import STFax faxes into any program that supports "
  158.                "datatypes.")
  159.        (source "Classes/Datatypes/STFax.datatype")
  160.        (dest   "SYS:Classes/Datatypes")
  161.        (confirm)
  162. )
  163.  
  164. (complete 70)
  165.  
  166. (startup "STFax"
  167.         (prompt "Editing your S:User-Startup")
  168.         (help   "The Installer will add one assign needed by STFax")
  169.         (command (cat "    Assign STFax: \"" DestDir "\" >NIL:"))
  170. )
  171.  
  172. (makeassign "STFax" DestDir)
  173.  
  174. (complete 80)
  175.  
  176. (copyfiles
  177.         (prompt "Copying catalog files")
  178.         (help @copyfiles-help)
  179.         (source "Catalogs")
  180.         (dest LocaleDir)
  181.         (choices "ÃeÓtina" "català" "dansk" "deutsch" "español"
  182.                  "français" "greek" "italiano" "nederlands" "norsk"
  183.                  "polski" "svenska")
  184.         (confirm)
  185. )
  186.  
  187. (complete 90)
  188.  
  189. (copyfiles
  190.         (prompt "Copying contributions")
  191.         (help @copyfiles-help)
  192.         (source "Contributions")
  193.         (dest ContribDir)
  194.         (choices "Multi2STFax" "Multi2STFax.doc"
  195.                  "NewIcons"
  196.                  "fax2ps" "fax2ps.doc"
  197.                  "GP2STFax" "GP2STFax.doc")
  198.         (confirm)
  199.         (infos)
  200. )
  201.  
  202. (if (exists ContribDir)
  203.         (copyfiles
  204.             (source "Contributions.info")
  205.             (dest DestDir)
  206.             (noposition)
  207.         )
  208. )
  209.  
  210. (complete 100)
  211.